DoubleToString Function

private function DoubleToString(number, fmt) result(string)

Converts a double precision number in a string Arguments: number number to be converted Result: string

Arguments

Type IntentOptional Attributes Name
real(kind=double), intent(in) :: number
character(len=*), intent(in), optional :: fmt

Return Value character(len=100)


Variables

Type Visibility Attributes Name Initial
integer(kind=short), public :: ios

Source Code

FUNCTION DoubleToString &
  ( number, fmt )       &
RESULT (string)

IMPLICIT NONE

! Function arguments
! Scalar arguments with intent(in):
REAL (KIND = double), INTENT (IN)  :: number
CHARACTER (LEN = *), INTENT (IN), OPTIONAL :: fmt

! Local scalars:
CHARACTER(LEN = 100)    :: string
INTEGER (KIND = short)  :: ios 

!------------end of declaration------------------------------------------------

IF (PRESENT (fmt)) THEN
  WRITE(string, fmt) number
ELSE
  WRITE(string,*) number
END IF
string = ADJUSTL (string)

END FUNCTION DoubleToString